home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / VAR.PAS < prev    next >
Pascal/Delphi Source File  |  1986-12-04  |  890b  |  27 lines
  1.    VAR
  2.      X,Y,SCALX,SCALY,LASTX,LASTY:REAL;
  3.      OBJ:ARRAY[1..8] OF STRING[8];
  4.      MODE:ARRAY[1..3] OF STRING[4];
  5.      SELNUM,BELLCODE,HRCOLOR,NPOLY:INTEGER;
  6.      XWORLD:REAL;
  7.      T:CHAR;
  8.      TP:STR4;
  9.      BLKLINE:SCRLINE;
  10.      STOP,CLIN,STARTOBJ,BUTTON1,BUTTON2,CURFLAG,QUIT:BOOLEAN;
  11.      DRAWREC:OBJECT;
  12.      DRAWARY:ARRAY [1..MAXSIZE] OF OBJECT;
  13.      DRAWFIL:FILE OF OBJECT;
  14.      DFILE:FSTR;
  15.      OBJPTR,OTYP,LEV,CODE:INTEGER;
  16.      REGS:REGIS;
  17.      PIXX,PIXY,XPMIN,XPMAX,XPIX,YPMIN,YPMAX,YPIX,XPREV,YPREV:INTEGER;
  18.      XDMIN,XDMAX,YDMIN,YDMAX:REAL;
  19.      XVMIN,XVMAX,YVMIN,YVMAX:REAL;
  20.      XWMIN,XWMAX,YWMIN,YWMAX:REAL;
  21.      VEC:VECTOR;
  22.      IDMAT,CLRMAT,ROTMAT,SCALEMAT,TRANSMAT,WORLDMAT,TEMPMAT:MATRIX;
  23.      STKMAT: ARRAY[1..10] OF MATRIX;
  24.      STKPTR:INTEGER;
  25.      CUR:ARRAY[0..31] OF INTEGER;
  26.      M1,M2,M3,M4:INTEGER;
  27.      MNUM,OPTION,LASTPOS:INTEGER;